home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / dev / e / EasyPLUGINs.lha / EasyPLUGINs / examples / register_demo3.e < prev    next >
Text File  |  1997-11-21  |  1KB  |  41 lines
  1. /*
  2. **
  3. ** Demo for register PLUGIN (based on tabs_test2.e shipped with easygui)
  4. **
  5. ** Copyright: Ralph Wermke of Digital Innovations
  6. ** EMail    : wermke@gryps1.rz.uni-greifswald.de
  7. ** WWW      : http://www.user.fh-stralsund.de/~rwermke/di.html
  8. **
  9. ** Date     : 03-Sep-1997
  10. **
  11. */
  12.  
  13. MODULE 'tools/easygui', 'tools/exceptions',
  14.        'utility/tagitem',
  15.        'easyplugins/register'
  16.  
  17. DEF labels:PTR TO LONG, gui:PTR TO LONG
  18.  
  19. PROC main()
  20. DEF top, r=NIL:PTR TO register_plugin
  21.  
  22.    labels:=['Slide', 'Check', 'Palette']
  23.  
  24.    NEW r.register([PLA_Register_Titles, labels, TAG_DONE])
  25.  
  26.    top:=[PLUGIN,{regsaction},r]
  27.    gui:=[
  28.          [ROWS,top,[SPACE],[SLIDE,{ignore},'Colors:',FALSE,1,8,3,5,'']],
  29.          [ROWS,top,[SPACE],[CHECK,{ignore},'Ignore case',TRUE,FALSE]],
  30.          [ROWS,top,[SPACE],[PALETTE,{ignore},'Palette:',3,5,2,0]]
  31.        ]
  32.    easyguiA('Register Test 2', gui[])
  33. ENDPROC
  34.  
  35. PROC ignore(i,x) IS EMPTY
  36.  
  37. PROC regsaction(gh,r:PTR TO register_plugin)
  38.    changegui(gh,gui[r.get(PLA_Register_ActivePage)])
  39.    changetitle(gh,labels[r.get(PLA_Register_ActivePage)])
  40. ENDPROC
  41.